home *** CD-ROM | disk | FTP | other *** search
/ NeXT Education Software Sampler 1992 Fall / NeXT Education Software Sampler 1992 Fall.iso / Programming / Source / winterp-1.13 / contrib / xmu / xmu-cache.lsp < prev    next >
Encoding:
Lisp/Scheme  |  1991-10-06  |  2.9 KB  |  94 lines
  1. ; -*-Lisp-*-
  2. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  3. ;
  4. ; File:         xmu-cache.lsp
  5. ; RCS:          $Header: $
  6. ; Description:  initialize the WINTERP menu server cache
  7. ; Author:       Richard Hess, Consilium
  8. ; Created:      Sun Oct  6 00:00:11 1991
  9. ; Modified:     Sun Oct  6 00:03:32 1991 (Niels Mayer) mayer@hplnpm
  10. ; Language:     Lisp
  11. ; Package:      N/A
  12. ; Status:       X11r5 contrib tape release
  13. ;
  14. ; WINTERP Copyright 1989, 1990, 1991 Hewlett-Packard Company (by Niels Mayer).
  15. ; XLISP version 2.1, Copyright (c) 1989, by David Betz.
  16. ;
  17. ; Permission to use, copy, modify, distribute, and sell this software and its
  18. ; documentation for any purpose is hereby granted without fee, provided that
  19. ; the above copyright notice appear in all copies and that both that
  20. ; copyright notice and this permission notice appear in supporting
  21. ; documentation, and that the name of Hewlett-Packard and David Betz not be
  22. ; used in advertising or publicity pertaining to distribution of the software
  23. ; without specific, written prior permission.  Hewlett-Packard and David Betz
  24. ; make no representations about the suitability of this software for any
  25. ; purpose. It is provided "as is" without express or implied warranty.
  26. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  27.  
  28. ; +---------------------------------------------------------------------------
  29. ;  WHO:    Richard Hess                    CORP:   Consilium
  30. ;  TITLE:  Staff Engineer                  VOICE:  [415] 691-6342
  31. ;      [ X-SWAT Team:  Special Projects ]  USNAIL: 640 Clyde Court
  32. ;  UUCP:   ...!uunet!cimshop!rhess                 Mountain View, CA 94043
  33. ; +---------------------------------------------------------------------------
  34.  
  35. (setq *xmu_def1* '("BSD"
  36.            "OSF-1"
  37.            "SVr4"
  38.            nil
  39.            ("MIPS"    ("DS-3100"
  40.                  "DS-5000"
  41.                  ("SGI 4D/35" "Cool stuff...")
  42.                  nil
  43.                  ("Stuff" ())  
  44.                  ))
  45.            ("NeXT"    ("NeXTstation"
  46.                  "NeXTstation Color"
  47.                  "NeXTcube"
  48.                  nil
  49.                  "NeXTdimension"
  50.                  ))
  51.            ("PA-RISC"    ("Series 720"
  52.                  "Series 730"
  53.                  "Series 750"
  54.                  ))
  55.            ("Sparc"    ("SLC"
  56.                  "IPC"
  57.                  "Station"
  58.                  "Server"
  59.                  ))
  60.            nil
  61.            ("Xterms"    ("NCD"
  62.                  "TekXpress"
  63.                  ("VT1200" "turtle...")
  64.                  ))
  65.            ))
  66.  
  67. (setq *xmu_def2* '("BSD"
  68.            "OSF-1"
  69.            "SVr4"
  70.            nil
  71.            ("Sparc"    ("SLC"
  72.                  "IPC"
  73.                  "Station"
  74.                  "Server"
  75.                  ))
  76.            ("MIPS"    ("DS-3100"
  77.                                  ("DS-5000" "Hot")
  78.                                  ("SGI 4D/35" "Cool stuff...")
  79.                                  nil
  80.                                  ("Stuff" ())
  81.                                  ))
  82.            "NeXT"
  83.            nil
  84.            ("Xterms"    ("NCD"
  85.                  "TekXpress"
  86.                  ("VT1200" "turtle...")
  87.                  ))
  88.            ))
  89.  
  90. (Xmu_Menu 888 "UNIX" *xmu_def1* "::Xmu [ demo1 ]")
  91. (Xmu_Menu 890 "UNIX" *xmu_def2* "::Xmu [ demo2 ]")
  92.  
  93. ; -----------------------------------------------------------------------<eof>
  94.